home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / SGEDI.z / SGEDI
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSGGGGEEEEDDDDIIII((((3333FFFF))))                                                            SSSSGGGGEEEEDDDDIIII((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SGEDI   - SGEDI computes the determinant and inverse of a matrix using
  10.      the factors computed by SGECO or SGEFA.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE SGEDI(A,LDA,N,IPVT,DET,WORK,JOB)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      AAAA REAL(LDA, N)
  20.         the output from SGECO or SGEFA.
  21.  
  22.      LLLLDDDDAAAA INTEGER
  23.         the leading dimension of the array  A .
  24.  
  25.      NNNN INTEGER
  26.         the order of the matrix  A .
  27.  
  28.      IIIIPPPPVVVVTTTT INTEGER(N)
  29.         the pivot vector from SGECO or SGEFA.
  30.  
  31.      WWWWOOOORRRRKKKK REAL(N)
  32.         work vector.  Contents destroyed.
  33.  
  34.      JJJJOOOOBBBB INTEGER
  35.         = 11   both determinant and inverse.
  36.         = 01   inverse only.
  37.         = 10   determinant only.  On Return
  38.  
  39.      AAAA inverse of original matrix if requested.
  40.         Otherwise unchanged.
  41.  
  42.      DDDDEEEETTTT REAL(2)
  43.         determinant of original matrix if requested.
  44.         Otherwise not referenced.
  45.         Determinant = DET(1) * 10.0**DET(2)
  46.         with  1.0 .LE. ABS(DET(1)) .LT. 10.0
  47.         or  DET(1) .EQ. 0.0 .  Error Condition
  48.  
  49.      AAAA division by zero will occur if the input factor contains a zero on the
  50.      diagonal and the inverse is requested.  It will not occur if the
  51.      subroutines are called correctly and if SGECO has set RCOND .GT. 0.0 or
  52.      SGEFA has set INFO .EQ. 0 .  LINPACK.  This version dated 08/14/78 .
  53.      Cleve Moler, University of New Mexico, Argonne National Lab.  Subroutines
  54.      and Functions BLAS SAXPY,SSCAL,SSWAP Fortran ABS,MOD
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.